<% filePath = Server.MapPath("/Exhibits/frankenstein/activities/frankenstein.mdb") vID = Request.querystring("ID") vSort = Request.querystring("Sort") set myconn= server.createobject("ADODB.Connection") myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath set myRst = server.createObject("ADODB.Recordset") strSQL = "select * from tblMain where RecID=" & vID myRst.open strSQL, myconn vtimePre=formatdatetime(myRst("A_date"),3) vtime = left(vtimePre, len(vtimePre)-6) & right(vtimePre,3) response.write ("" & myRst("Title") &"" & "

" & formatdatetime(myRst("A_date"),1) & _ " (" & vtime & ")" & "

" &"Location: " & myRst("Location") &"

" & _ myRst("Description") & "

" & myRst("Footer") & "    Back to the List") set myRst = nothing set myconn = nothing %>